home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
3.1
/
toasterall
/
arexx_examples
/
lwm
/
points.lwm
< prev
next >
Wrap
Text File
|
1993-06-08
|
668b
|
34 lines
/* CMD: Enter Points
* Enter x y z coords, make points */
/* By Arnie Cachelin © 1992 NewTek Inc. */
libadd = addlib("LWModelerARexx.port",0)
signal on error
signal on syntax
call req_begin "Create Point"
id_pt = req_addcontrol("Point",'V',1)
call req_setval id_pt, 0, 0
points = 0
do forever
if (~req_post()) then do
leave
end
call add_begin
call add_point req_getval(id_pt)
call add_end
points = points+1
end
call req_end
if (points ~= 0) then call notify(1,'Created 'points' points.')
exit
syntax:
error:
call end_all
t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
if (libadd) then call remlib("LWModelerARexx.port")
exit